      SUBROUTINE IZERO(IVEC,LEN)
C
C ZEROS OUT THE FIRST LEN ELEMENTS OF INTEGER VECTOR IVEC.
C
CEND
      DIMENSION IVEC(LEN)
      DO 10 I=1,LEN
       IVEC(I)=0
10    CONTINUE
      RETURN
      END
